home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / tstcopy.s < prev    next >
Text File  |  1997-01-31  |  497b  |  43 lines
  1.  
  2.  include "macros.i"
  3.  
  4.  move.l #blag,$80
  5.  trap #0
  6.  rts
  7.  
  8. blag:
  9.  
  10.  CACHE_ON d0
  11.  CACHE_FREEZE_OFF d0
  12.  move.l #one,a0
  13.  bsr rout
  14.  CACHE_FREEZE_ON d0
  15.  move.w #((endrout-rout)/4)-1,d0
  16.  move.l #rout,a0
  17. clr:
  18.  not.l (a0)+
  19.  dbra d0,clr
  20.  move.l #blag,a0
  21.  move.l #0,d0
  22.  move.w #(endblag-blag)/2-1,d1
  23.  endblag:
  24. clr2:
  25.  move.w d0,(a0)+
  26.  dbra d1,clr2
  27.  move.l d0,(a0)+
  28.  move.l d0,(a0)+
  29.  move.l d0,(a0)+
  30.  
  31.  move.l #two,a0
  32.  bsr rout
  33.  rte
  34.  
  35.  CNOP 0,4
  36. rout:
  37.  move.w #1,(a0)
  38.  rts
  39.  CNOP 0,4
  40. endrout:
  41.  
  42. one: dc.w 0
  43. two: dc.w 0